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ZTI1 = ‘EDTSFSTRING - format a string for output’ 
MODULE EDTSFSTRING ( ! Format a string for outpu 
we NT = 'V04-000' ! File: FSTRING.B 1 edit: J6S1004 
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'‘® DIGITAL EQUIPMENT EORPORATION, MAYNARD. MASSACHUSETTS. 

: ALL RIGHTS RESERVED. 

ie THIS fe “Sek i. Spi UNDER A LICENSE AND MAY BE USED AND COPIED 

'® ONLY IN ACCORDANCE WITH THE TERMS OF rate” LICENSE AND WITH THE 

'‘® INCLUSION OF THE ABOVE ce geneue NOTICE. THIS SOFTWARE OR ANY OTHER 

'® COPIES THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY 

'w OTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY 
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is THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE 
; Se pokat ibn NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT 


iw DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS 
'® SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. 
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'e¢ 
FACILITY: EDT -- The DEC Standard Editor 
ABSTRACT: 
3 36 Format a string for output. 
; $ ENVIRONMENT: Runs at any access mode - AST reentrant 
4 40 AUTHOR: Bob Kushlis, CREATION DATE: March 18, 1979 
4 004 ; MODIFIED BY: 
4 044 i 1-001 = Original. DJS 19-FEB-1981. This module was ogneated by 
4 045 : extracting routine EDTSSFMT stk f roe module FORMAT. 
4 p068 ! 1-002 - Regular ze headers. JBS 0 1981 
4 04 ! 1-005 = Use a local for the string po pointer. so we don't modify the 
48 0048 : formal (a violation of the ye calling oecandard) This 
49 open : change saves 3 words in the PDP-11 -Mar-1981 
29 3230 1-004 - Improve the appearance of the ett.” BS as 14-Jun-1983 
52 0052 1 
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GLOBAL ROUTINE EDTSSFMT_STR ( ! Format a os for output 
S$. ! Address of string 
N ! Length of string 
) : NOVALUE = 


'44 


; FUNCTIONAL DESCRIPTION: 


place g.string of characters in the format buffer by repeated calls 
FORMAL PARAMETERS: 
Ss Pointer to the string. 
N Number of characters. 
IMPLICIT INPUTS: 
NONE 
IMPLICIT OUTPUTS: 
NONE 
ROUTINE VALUE: 
NONE 
SIDE EFFECTS: 
Calls EDTSSFMT_CH 
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BEGIN 


EXTERNAL ROUTINE 
EDTSSFMT_CH : NOVALUE; 


LOCAL 
CHAR_PTR; 


CHAR_PTR = .S; 


INCR I FROM 1 TO .N DO 
EDTSSFMT_CH (CHSRCHAR_A (CHAR_PTR)); 


END; ! of routine EDTSSFMT_STR 


-TITLE EDTSFSTRING EDTSFSTRING - format a string for o 
-IDENT \V04-000\ 
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.EXTRN EDTSSFMT_CH 
.PSECT _EDTSCODE,NOWRT, SHR, PIC,2 
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000 .ENTRY EDTSSFMT_STR, Save R2,R3 ; $59 
53 04 as D MOVL S, CHAR_PTR F be 
CLRL ; 0704 
? § Oh BOOK 18 SouzeL tHAR_PTA)*. =<SP) ‘ 0705 
000000006 0 1 Fe 8 D CALLS aie EDTSSFMT_CH : 
1 08 AC F 14 28: AOBLEQ N, I, 1$ : 
04 00019 RET : 0707 


; Routine Size: 26 bytes, Routine Base: _EDTSCODE + 0000 
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EDTSFSTRING DISFSTRING = format a string for output 1h-se “19 :29:3 VAX-11 Bliss-32 V4.0-74 
042000 EDISSFRT T_STR = format a string for output 14- sett 99:33:78 
3 16) r19 1 END ! of module EDTSFSTRING 
; «(14 711 «1 
3; 4 712 O ELUDOM 
H PSECT SUMMARY 
; Name Bytes Attributes 
: EDTSCODE 26 NOVEC,NOWRT, RD, EXE, SHR, LCL, REL, CON, PIC,ALIGN(2) 
8 Library Statistics 
; ooeners > Syabel§ eoosces- Pages Processing 
; File Total Loaded Percent Mapped Time 
: _$255$DUA28: stER EDT. SRCJEDT.L32;7 377 0 0 40 00:00.2 
; ~$255$DUA28:CEDT.SRCIPSECTS.L32;1 2 1 50 7 00:00.1 


COMMAND QUALIFIERS 


BLISS/CHECKSCEIELD. INITIAL OPTIMIZE) /NOTRACEBACK/LIS=L1SS:F STRING/0BJ=088 sF STRING MSRC$:FSTRING.BLI/UPDATE=(ENHS$:F STRING 


Size: 26 code *,° data bytes 
me: : 

Elapsed Time: OPE? 

Lexenes/CPU-Min: 12553 


: 53 pages 
poet Rees Complete 
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